From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 1 Aug 2019 17:27:19 +0000 (+0200)
Subject: Say that while returns nil
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2163
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5b3b7da1684ac556f659c9187bab0d9f803b9097;p=emacs.git

Say that while returns nil

* src/eval.c (Fwhile): Say that while always returns nil
(bug#22006).
---

diff --git a/src/eval.c b/src/eval.c
index 2e5074360d5..cb9eb37b569 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -991,6 +991,9 @@ DEFUN ("while", Fwhile, Swhile, 1, UNEVALLED, 0,
        doc: /* If TEST yields non-nil, eval BODY... and repeat.
 The order of execution is thus TEST, BODY, TEST, BODY and so on
 until TEST returns nil.
+
+The value of a `while' form is always nil.
+
 usage: (while TEST BODY...)  */)
   (Lisp_Object args)
 {